home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side B).do / SHOPLIST 3.1.bas < prev    next >
BASIC Source File  |  1996-12-24  |  8KB  |  110 lines
  1. 40  REM                                  WRITTEN BY
  2. 41  REM 
  3. 42  REM                              TOM MORENO
  4. 43  REM                              847 LENTON AVE
  5. 44  REM                              BALTIMORE, MD  21212
  6. 45  REM                               301-532-9431 
  7. 50  DIM SD$(26)
  8. 51 S = 0
  9. 55  DIM PD$(150)
  10. 60  HOME : TEXT :D$ =  CHR$(4):PN =  -1
  11. 62  GOSUB 65: GOTO 80
  12. 65  VTAB 10: HTAB 9: PRINT "**********************"
  13. 70  VTAB 11: HTAB 9: PRINT "* HOME SHOPPING LIST *"
  14. 75  VTAB 12: HTAB 9: PRINT "**********************": RETURN 
  15. 80  FOR T = 1 TO 10000: NEXT 
  16. 85  REM   CHANGE THIS SECTION TO  FIT YOUR PRINTER
  17. 90  HOME : VTAB 12: PRINT "DO YOU WANT COMPRESSED TYPE? (Y/N) ";: GET A$: IF A$ = "N"  THEN 150
  18. 120  IF A$ < >"Y"  THEN 90
  19. 123  HOME : VTAB 12: PRINT " ....PLEASE TURN ON YOUR PRINTER"
  20. 125  PRINT  CHR$(7)
  21. 130  PRINT D$;"PR#1"
  22. 135  PRINT  CHR$(7): HOME 
  23. 140  PRINT  CHR$(143)
  24. 145  PRINT D$;"PR#0"
  25. 150  HTAB 1: VTAB 1: PRINT PN +1;"  ITEMS ";: INVERSE : PRINT "**";: NORMAL : PRINT " LAST ITEM -> "
  26. 155  POKE 34,2: POKE 35,22
  27. 160  VTAB 24: HTAB 1: INVERSE : PRINT "       PRESS <ESC> FOR NEXT PAGE       ": NORMAL 
  28. 200  READ N: IF N =  -1  THEN 400
  29. 205 N = N -1: READ HE$: FOR L = 0 TO N: READ SD$(L): NEXT 
  30. 220  HOME : VTAB 3: HTAB 5: PRINT HE$
  31. 230 HT = 1:V = 0
  32. 240  FOR L = 0 TO N
  33. 250  VTAB (V +5): HTAB (HT): PRINT  CHR$(65 +L);") ";SD$(L)
  34. 260  IF L = 12  THEN HT = 21:V =  -1
  35. 270 V = V +1: NEXT L
  36. 280  VTAB 22: HTAB 5: PRINT "SELECT LETTER OF CHOICE ";: GET A$
  37. 285  IF A$ =  CHR$(27)  THEN 200
  38. 290  IF A$ <"A"  OR A$ > CHR$(65 +N)  THEN 280
  39. 300 L =  ASC(A$) -65:X$ = SD$(L): GOSUB 310: GOTO 280
  40. 310 PN = PN +1:PD$(PN) = X$: VTAB 1: HTAB 1: PRINT PN +1
  41. 312  VTAB 1: HTAB 26: PRINT "                  "
  42. 315  VTAB 1: HTAB 23: INVERSE : PRINT PD$(PN): NORMAL 
  43. 317  IF S  THEN  GOTO 325
  44. 318 HT = 1:VT = L +5: IF VT >17  THEN VT = VT -13:HT = 21
  45. 320  INVERSE : HTAB (HT): VTAB (VT): PRINT "*"
  46. 325  NORMAL 
  47. 399  IF PN < = 148  THEN  RETURN 
  48. 400  HOME : GOSUB 450: VTAB 12: PRINT "PLEASE TURN ON YOUR PRINTER": PRINT D$;"PR#1": PRINT  CHR$(7): HOME : GOSUB 65
  49. 405  REM   THIS SHOULD RUN ON ANYPRINTER,BUT YOU CAN CHANGE  FORMAT FOR YOUR PRINTER
  50. 410  FOR L = 0 TO PN
  51. 415  PRINT PD$(L);:L = L +1: IF L >PN  THEN 419
  52. 417  HTAB 20: PRINT PD$(L)
  53. 418  NEXT 
  54. 419  PRINT 
  55. 420  PRINT D$;"PR#0"
  56. 449  END 
  57. 450  HOME : VTAB 12: PRINT "DO YOU WISH TO REVIEW THE LIST (Y/N) ";: GET A$: IF A$ = "N"  THEN 455
  58. 452  IF A$ < >"Y"  THEN 450
  59. 453  GOSUB 600
  60. 455  HOME : VTAB 12: PRINT "DO YOU WANT TO ADD ANYTHING (Y/N) ";: GET A$: IF A$ = "N"  THEN  POKE 34,0: POKE 35,24: HOME : RETURN 
  61. 459 S = 1
  62. 460  IF A$ < >"Y"  THEN 450
  63. 465  HTAB 1: VTAB 24: INVERSE : PRINT "<CTRL A> = PRINTER * <ESC> = REVIEW LIST": NORMAL 
  64. 470  HOME : VTAB 10: PRINT "ENTER NEW ITEM BELOW AND PRESS <RETURN>"
  65. 475  VTAB 14: PRINT "LIMIT - 15 LETTERS"
  66. 480 X$ = "":N = 0: HTAB 10: VTAB 16: FOR O = 1 TO 15: PRINT "-";: NEXT 
  67. 481  HTAB 10: VTAB 16
  68. 483  GET A$: IF A$ =  CHR$(13)  AND N = 0  THEN 495
  69. 484  IF A$ =  CHR$(27)  THEN  GOSUB 600: GOTO 470
  70. 485  IF A$ =  CHR$(13)  THEN 490
  71. 486  IF A$ =  CHR$(1)  THEN 495
  72. 487  PRINT A$;:X$ = X$ +A$:N = N +1
  73. 488  IF N <15  THEN 483
  74. 490  GOSUB 310: GOTO 480
  75. 495  POKE 34,0: POKE 35,24: HOME : RETURN 
  76. 600  HOME :N = 2
  77. 610  FOR L = 0 TO PN
  78. 620  PRINT PD$(L);:L = L +1: IF L >PN  THEN  PRINT : PRINT "PRESS ANY KEY TO CONTINUE ";: GET A$: HOME : RETURN 
  79. 630  HTAB 20: PRINT PD$(L)
  80. 640  IF L = (N *10) -1  THEN  PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GET A$: HOME :N = N +2
  81. 650  NEXT : PRINT "PRESS ANY KEY TO CONTINUE";: GET A$: HOME : RETURN 
  82. 1000  DATA  25,CANNED GOODS,ASPARAGUS,CREAMED CORN,APPLESAUCE,STRING BEANS,WHOLE TOMATOES,TOMATO PASTE,TOMATO PUREE,TOMATO SAUCE,LIMA BEANS,KIDNEY BEANS
  83. 1005  DATA  HOMINY,SOUP,PEACHES,PEARS,PINEAPPLE,BEETS,SAUERKRAUT,BAKED BEANS,SUCCOTASH,3 BEAN SALAD,WAX BEANS,CHICK PEAS,PICKLES,APPRICOTS,PEAS
  84. 1010  DATA  15,PAPER PRODUCTS,TOILET PAPER,PAPER PLATES,PAPER CUPS,PAPER TOWELS,PAPER BAGS,FACIAL TISSUE,NAPKINS,PLASTIC SPOONS,PLASTIC FORKS,PLASTIC KNIVES,WAX PAPER,ALUMINUM FOIL,SANDWICH BAGS,PLASTIC WRAP,TRASH BAGS
  85. 1015  DATA  14,FRUIT,ORANGES,LEMONS,LIMES,APPLES,GRAPEFRUIT,BANANAS,MANGOS,PLUMS,GRAPES,BLUEBERRIES,STRAWBERRIES,PEACHES,CANTELOPE,MELONS
  86. 1020  DATA  20,MISC.,MOUSETRAPS,INSECT SPRAY,CHARCOAL,BATTERIES,LIGHTER FLUID,CANDLES,MATCHES,CELLOPHANE TAPE,CHEWING GUM,WAX,LIGHT BULBS,SHOELACES,GLUE,CARDS,NOTEBOOK,PEN,LINED PAPER,PLANT FOOD,POTTING SOIL,CIGARETTES
  87. 1025  DATA   21,PRODUCE,LETTUCE,CABBAGE,TOMATOES,ONIONS,POTATOES,CUCUMBERS,RADISHES,SPINACH,KALE,TURNIPS,CORN,GARLIC,ROMAINE,AVOCADOS,ARTICHOKES,YAMS,EGGPLANT,GREEN PEPPERS,SQUASH,BROCCOLI,PARSLEY
  88. 1075  DATA  23,DAIRY,MILK,SKIM MILK,LIGHT MILK,BUTTERMILK,CHOCOLATE MILK,EVAPORATED MILK,CONDENSED MILK,EGGS,BUTTER,MARGERINE,SOUR CREAM
  89. 1080  DATA  HALF & HALF,TABLE CREAM,WHIPPING CREAM,EGG NOG,COTTAGE CHEESE,SWISS CHESSE,AMERICAN CHEESE,CREAM CHEESE,GOUDA CHEESE,RICOTTA CHEESE,CHIP DIP,YOGURT
  90. 1085  DATA  22,MEAT,BEEF STEAK,BEEF ROAST,GROUND BEEF,CUBED BEEF,BEEF LIVER,CALF LIVER,CORNED BEEF,VEAL LEG,VEAL SCALLOPS,LAMB LEG,LAMB CHOPS
  91. 1090  DATA  PORK ROAST,PORK CHOPS,PORK RIBS,WHOLE CHICKEN,CHICKEN PARTS,DUCK,CORNISH HEN,TURKEY,HAM STEAKS,WHOLE HAM,OX TAILS
  92. 1095  DATA  23,BAKED GOODS,WHITE BREAD,WHEAT BREAD,RYE BREAD,HOT DOG ROLLS,HAMBURGER ROLLS,DINNER ROLLS,DOUGHNUTS,SNACK CAKES,MUFFINS,ENGLISH MUFFINS,STUFFING,CROUTONS
  93. 1100  DATA  CRACKERS,COFFEE CAKE,BIRTHDAY CAKE,COCONUT CAKE,PUMPKIN PIE,COOKIES,APPLE PIE,CHERRY PIE,LEMON PIE,SWEET ROLLS,BREAD CRUMBS
  94. 1105  DATA  13,PACKAGED MEAT,CHIPPED BEEF,BACON,SAUSAGE,LINK SAUSAGE,ITALIAN SAUSAGE,POLISH SAUSAGE,BOLOGNA,SCRAPPLE,SAUSAGE PATTIES,SALAMI,IMPORTED HAM,LUNCH LOAF,HOT DOGS
  95. 1110  DATA  26,SPICES,ONION SALT,GARLIC SALT,CINNAMON,NUTMEG,VANILLA,EPICURE SALT,ITALIAN SEASONING,OREGANO,THYME,ROSEMARY,SAGE,CELERY SALT,MSG
  96. 1115  DATA  GARLIC CHIPS,ONION CHIPS,CHILI POWDER,GINGER,BAY LEAF,DRY MUSTARD,BASIL,DILL,TENDERIZER,PAPRIKA,PEPPERCORNS,CREAM OF TARTAR,FOOD COLORING
  97. 1120  DATA  26,CONDIMENTS,CATSUP,SALT,PEPPER,MUSTARD,HOT MUSTARD,BAR B-Q SAUCE,MAYONAISE,VINEGAR,SHORTENING,OIL,TABASCO,WORCESTERSHIRE
  98. 1125  DATA  SOY SAUCE,BAKING SODA,BAKING POWDER,CORNSTARCH,SUGAR,FRUCTOSE,CONFECTION SUGAR,BROWN SUGAR,CAROB POWDER,CHOCOLATE,SALAD DRESSING,BACON BITS,JELLY/JAM,OLIVES
  99. 1130  DATA  24,DRY GOODS,FLOUR,WHEAT FLOUR,CORN FLOUR,CORN MEAL,RICE,NOODLES,PASTA,SPAGETTI,CEREAL,CAKE MIX,PEANUTS,WALNUTS
  100. 1135  DATA  ALMONDS,MIXED NUTS,POPCORN,OATMEAL,COCONUT,BISCUIT,PANCAKE MIX,PRETZELS,POTATO CHIPS,CORN CHIPS,MAPLE SYRUP,PEANUT BUTTER
  101. 1140  DATA  26,PERSONAL GOODS,TOOTHPASTE,MOUTHWASH,DENTAL FLOSS,HAIRSPRAY,RAZOR BLADES,ALCOHOL,ASPRIN,BI-CARB,COTTON SWABS,TAMPONS,DEODORANT,SHAMPOO,COLD CREAM
  102. 1145  DATA   CREAM RINSE,CONDITIONER,LOTION,LAXATIVE,SHAVE CREAM,BATH SOAP,EMORY BOARDS,PANTY HOSE,BAND AIDS,GAUZE,ANTISEPTIC SPRAY,FIRST AID TAPE,COTTON BALLS
  103. 1150  DATA   21,BEVERAGES,CLUB SODA,COLA,GINGER ALE,TONIC,7-UP,ROOT BEER,ORANGE JUICE,GRAPE JUICE,PRUNE JUICE,TOMATO JUICE,COCOA
  104. 1155  DATA  APPLE JUICE,V 8 JUICE,LEMONADE,COFFEE,TEA,INSTANT COFFEE,ICED TEA MIX,SPRING WATER,DISTILLED WATER,ICE
  105. 1160  DATA  14,FROZEN FOODS,ICE CREAM,FRENCH FRIES,ONION RINGS,PEAS,STRING BEANS,CALIFLOWER,BROCCOLI,DESERT TOPPING,STRAWBERRIES,MEAT PIES,DESSERT PIES,WAFFLES,PIZZA,TV DINNERS
  106. 1165  DATA  16,SEAFOOD,SHRIMP,LOBSTER,SQUID,FRESH FISH,FISH STICKS,CRAB,CRAB MEAT,CRAB CAKES,CODFISH,SALMON,TUNA FISH,CLAMS,CHOPPED CLAMS,OYSTERS,MUSSELS,SARDINES
  107. 1170  DATA  14,PET SUPPLIES,DOG FOOD,DOG TREATS,PET SHAMPOO,PET COLLAR,FLEA SPRAY,CAT LITTER,CAT FOOD,CATNIP,CAT TREATS,BIRD SEED,SEED TREE,CUDDLE BONE,GRAVEL,FISH FOOD
  108. 1175  DATA  18,CLEANING SUPPLIES,FLOOR WAX,FURNITURE POLISH,LAUNDRY SOAP,BLEACH,SCRUB PADS,SOFTENER,DRAIN CLEANER,BATH CLEANER,SPRAY CLEANER
  109. 1180  DATA  GLASS CLEANER,SILVER POLISH,STARCH,DEODORIZER,PRE WASH,DISH CLEANER,SPONGE,DISINFECTANT,PINE OIL
  110. 1200  DATA  -1